/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / MPWPascal / PExamples / Memory.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 4d 65 6d 6f 72 79 | 2e 70 00 00 00 00 00 00 |..Memory|.p......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 10 fb 00 | 00 09 37 9f b9 d9 90 9f |........|..7.....|
|00000060| b9 d9 90 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 13 8e 00 00 |........|........|
|00000080| 7b 0d 20 46 69 6c 65 20 | 4d 65 6d 6f 72 79 2e 70 |{. File |Memory.p|
|00000090| 0d 0d 20 43 6f 70 79 72 | 69 67 68 74 20 41 70 70 |.. Copyr|ight App|
|000000a0| 6c 65 20 43 6f 6d 70 75 | 74 65 72 2c 20 49 6e 63 |le Compu|ter, Inc|
|000000b0| 2e 20 31 39 38 35 2d 31 | 39 38 38 0d 20 41 6c 6c |. 1985-1|988. All|
|000000c0| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|000000d0| 2e 0d 7d 0d 0d 7b 24 44 | 2b 7d 20 7b 20 4d 61 63 |..}..{$D|+} { Mac|
|000000e0| 73 42 75 67 20 73 79 6d | 62 6f 6c 73 20 6f 6e 20 |sBug sym|bols on |
|000000f0| 7d 0d 7b 24 52 2d 7d 20 | 7b 20 4e 6f 20 72 61 6e |}.{$R-} |{ No ran|
|00000100| 67 65 20 63 68 65 63 6b | 69 6e 67 20 20 7d 0d 0d |ge check|ing  }..|
|00000110| 55 4e 49 54 20 4d 65 6d | 6f 72 79 3b 0d 0d 49 4e |UNIT Mem|ory;..IN|
|00000120| 54 45 52 46 41 43 45 0d | 0d 55 53 45 53 0d 09 4d |TERFACE.|.USES..M|
|00000130| 65 6d 54 79 70 65 73 2c | 20 51 75 69 63 6b 44 72 |emTypes,| QuickDr|
|00000140| 61 77 2c 20 4f 53 49 6e | 74 66 2c 20 54 6f 6f 6c |aw, OSIn|tf, Tool|
|00000150| 49 6e 74 66 2c 20 50 61 | 63 6b 49 6e 74 66 3b 0d |Intf, Pa|ckIntf;.|
|00000160| 0d 0d 46 55 4e 43 54 49 | 4f 4e 20 44 52 56 52 4f |..FUNCTI|ON DRVRO|
|00000170| 70 65 6e 09 09 28 63 74 | 6c 50 42 3a 20 50 61 72 |pen..(ct|lPB: Par|
|00000180| 6d 42 6c 6b 50 74 72 3b | 20 64 43 74 6c 3a 20 44 |mBlkPtr;| dCtl: D|
|00000190| 43 74 6c 50 74 72 29 3a | 20 4f 53 45 72 72 3b 0d |CtlPtr):| OSErr;.|
|000001a0| 46 55 4e 43 54 49 4f 4e | 20 44 52 56 52 43 6f 6e |FUNCTION| DRVRCon|
|000001b0| 74 72 6f 6c 09 28 63 74 | 6c 50 42 3a 20 50 61 72 |trol.(ct|lPB: Par|
|000001c0| 6d 42 6c 6b 50 74 72 3b | 20 64 43 74 6c 3a 20 44 |mBlkPtr;| dCtl: D|
|000001d0| 43 74 6c 50 74 72 29 3a | 20 4f 53 45 72 72 3b 0d |CtlPtr):| OSErr;.|
|000001e0| 46 55 4e 43 54 49 4f 4e | 20 44 52 56 52 53 74 61 |FUNCTION| DRVRSta|
|000001f0| 74 75 73 20 09 28 63 74 | 6c 50 42 3a 20 50 61 72 |tus .(ct|lPB: Par|
|00000200| 6d 42 6c 6b 50 74 72 3b | 20 64 43 74 6c 3a 20 44 |mBlkPtr;| dCtl: D|
|00000210| 43 74 6c 50 74 72 29 3a | 20 4f 53 45 72 72 3b 0d |CtlPtr):| OSErr;.|
|00000220| 46 55 4e 43 54 49 4f 4e | 20 44 52 56 52 50 72 69 |FUNCTION| DRVRPri|
|00000230| 6d 65 09 09 28 63 74 6c | 50 42 3a 20 50 61 72 6d |me..(ctl|PB: Parm|
|00000240| 42 6c 6b 50 74 72 3b 20 | 64 43 74 6c 3a 20 44 43 |BlkPtr; |dCtl: DC|
|00000250| 74 6c 50 74 72 29 3a 20 | 4f 53 45 72 72 3b 0d 46 |tlPtr): |OSErr;.F|
|00000260| 55 4e 43 54 49 4f 4e 20 | 44 52 56 52 43 6c 6f 73 |UNCTION |DRVRClos|
|00000270| 65 09 09 28 63 74 6c 50 | 42 3a 20 50 61 72 6d 42 |e..(ctlP|B: ParmB|
|00000280| 6c 6b 50 74 72 3b 20 64 | 43 74 6c 3a 20 44 43 74 |lkPtr; d|Ctl: DCt|
|00000290| 6c 50 74 72 29 3a 20 4f | 53 45 72 72 3b 0d 09 09 |lPtr): O|SErr;...|
|000002a0| 09 0d 0d 49 4d 50 4c 45 | 4d 45 4e 54 41 54 49 4f |...IMPLE|MENTATIO|
|000002b0| 4e 0d 0d 54 59 50 45 0d | 09 45 76 65 6e 74 50 74 |N..TYPE.|.EventPt|
|000002c0| 72 20 3d 20 5e 45 76 65 | 6e 74 52 65 63 6f 72 64 |r = ^Eve|ntRecord|
|000002d0| 3b 0d 09 74 72 69 78 20 | 3d 09 52 45 43 4f 52 44 |;..trix |=.RECORD|
|000002e0| 09 09 09 7b 20 6e 65 65 | 64 65 64 20 66 6f 72 20 |...{ nee|ded for |
|000002f0| 73 6f 6d 65 20 63 6f 65 | 72 63 69 76 65 20 62 65 |some coe|rcive be|
|00000300| 68 61 76 69 6f 72 20 7d | 0d 09 09 43 41 53 45 20 |havior }|...CASE |
|00000310| 42 6f 6f 6c 65 61 6e 20 | 6f 66 0d 09 09 09 54 52 |Boolean |of....TR|
|00000320| 55 45 3a 09 28 46 61 79 | 57 72 61 79 3a 20 41 52 |UE:.(Fay|Wray: AR|
|00000330| 52 41 59 5b 30 2e 2e 31 | 30 5d 20 4f 46 20 49 6e |RAY[0..1|0] OF In|
|00000340| 74 65 67 65 72 29 3b 0d | 09 09 09 46 41 4c 53 45 |teger);.|...FALSE|
|00000350| 3a 09 28 41 77 61 79 3a | 09 45 76 65 6e 74 50 74 |:.(Away:|.EventPt|
|00000360| 72 29 3b 0d 09 09 45 4e | 44 3b 0d 0d 0d 46 55 4e |r);...EN|D;...FUN|
|00000370| 43 54 49 4f 4e 20 52 73 | 72 63 49 44 28 64 43 74 |CTION Rs|rcID(dCt|
|00000380| 6c 3a 20 44 43 74 6c 50 | 74 72 29 3a 20 49 6e 74 |l: DCtlP|tr): Int|
|00000390| 65 67 65 72 3b 0d 42 45 | 47 49 4e 0d 09 52 73 72 |eger;.BE|GIN..Rsr|
|000003a0| 63 49 44 20 3a 3d 20 28 | 42 4f 52 28 24 43 30 30 |cID := (|BOR($C00|
|000003b0| 30 2c 28 42 53 4c 28 42 | 4e 4f 54 28 64 43 74 6c |0,(BSL(B|NOT(dCtl|
|000003c0| 5e 2e 64 43 74 6c 52 65 | 66 4e 75 6d 29 2c 35 29 |^.dCtlRe|fNum),5)|
|000003d0| 29 29 29 3b 0d 45 4e 44 | 3b 0d 0d 0d 46 55 4e 43 |)));.END|;...FUNC|
|000003e0| 54 49 4f 4e 20 44 52 56 | 52 4f 70 65 6e 28 63 74 |TION DRV|ROpen(ct|
|000003f0| 6c 50 42 3a 20 50 61 72 | 6d 42 6c 6b 50 74 72 3b |lPB: Par|mBlkPtr;|
|00000400| 20 64 43 74 6c 3a 20 44 | 43 74 6c 50 74 72 29 3a | dCtl: D|CtlPtr):|
|00000410| 20 4f 53 45 72 72 3b 0d | 56 41 52 20 09 0d 09 53 | OSErr;.|VAR ...S|
|00000420| 61 76 65 50 6f 72 74 3a | 09 47 72 61 66 50 74 72 |avePort:|.GrafPtr|
|00000430| 3b 0d 09 68 65 61 70 47 | 72 6f 77 3a 09 4c 6f 6e |;..heapG|row:.Lon|
|00000440| 67 49 6e 74 3b 0d 09 77 | 52 65 63 74 3a 09 09 52 |gInt;..w|Rect:..R|
|00000450| 65 63 74 3b 0d 09 6d 79 | 57 69 6e 64 6f 77 3a 09 |ect;..my|Window:.|
|00000460| 57 69 6e 64 6f 77 50 74 | 72 3b 0d 42 45 47 49 4e |WindowPt|r;.BEGIN|
|00000470| 0d 09 49 46 20 64 43 74 | 6c 5e 2e 64 43 74 6c 57 |..IF dCt|l^.dCtlW|
|00000480| 69 6e 64 6f 77 20 3d 20 | 4e 49 4c 20 54 48 45 4e |indow = |NIL THEN|
|00000490| 0d 09 42 45 47 49 4e 0d | 09 09 47 65 74 50 6f 72 |..BEGIN.|..GetPor|
|000004a0| 74 20 28 53 61 76 65 50 | 6f 72 74 29 3b 0d 09 09 |t (SaveP|ort);...|
|000004b0| 09 6d 79 57 69 6e 64 6f | 77 20 3a 3d 20 47 65 74 |.myWindo|w := Get|
|000004c0| 4e 65 77 57 69 6e 64 6f | 77 28 52 73 72 63 49 44 |NewWindo|w(RsrcID|
|000004d0| 28 64 43 74 6c 29 2c 6e | 69 6c 2c 50 4f 49 4e 54 |(dCtl),n|il,POINT|
|000004e0| 45 52 28 2d 31 29 29 3b | 0d 09 09 09 77 69 6e 64 |ER(-1));|....wind|
|000004f0| 6f 77 70 65 65 6b 28 6d | 79 57 69 6e 64 6f 77 29 |owpeek(m|yWindow)|
|00000500| 5e 2e 57 69 6e 64 6f 77 | 4b 69 6e 64 20 3a 3d 20 |^.Window|Kind := |
|00000510| 64 43 74 6c 5e 2e 64 43 | 74 6c 52 65 66 4e 75 6d |dCtl^.dC|tlRefNum|
|00000520| 3b 20 20 7b 20 73 68 6f | 77 20 61 20 44 41 20 6f |;  { sho|w a DA o|
|00000530| 77 6e 73 20 74 68 69 73 | 20 77 69 6e 64 6f 77 20 |wns this| window |
|00000540| 7d 0d 09 09 64 43 74 6c | 5e 2e 64 43 74 6c 57 69 |}...dCtl|^.dCtlWi|
|00000550| 6e 64 6f 77 20 3a 3d 20 | 6d 79 57 69 6e 64 6f 77 |ndow := |myWindow|
|00000560| 3b 09 7b 20 6c 65 74 20 | 74 68 65 20 64 65 73 6b |;.{ let |the desk|
|00000570| 20 6d 61 6e 61 67 65 72 | 20 6b 6e 6f 77 20 74 6f | manager| know to|
|00000580| 6f 20 7d 0d 09 09 68 65 | 61 70 47 72 6f 77 20 3a |o }...he|apGrow :|
|00000590| 3d 20 4d 61 78 4d 65 6d | 20 28 68 65 61 70 47 72 |= MaxMem| (heapGr|
|000005a0| 6f 77 29 3b 0d 09 09 53 | 65 74 50 6f 72 74 20 28 |ow);...S|etPort (|
|000005b0| 53 61 76 65 50 6f 72 74 | 29 3b 0d 09 45 4e 44 3b |SavePort|);..END;|
|000005c0| 0d 09 44 52 56 52 4f 70 | 65 6e 20 3a 3d 20 4e 4f |..DRVROp|en := NO|
|000005d0| 45 72 72 3b 0d 45 4e 44 | 3b 0d 0d 0d 46 55 4e 43 |Err;.END|;...FUNC|
|000005e0| 54 49 4f 4e 20 44 52 56 | 52 43 6c 6f 73 65 28 63 |TION DRV|RClose(c|
|000005f0| 74 6c 50 42 3a 20 50 61 | 72 6d 42 6c 6b 50 74 72 |tlPB: Pa|rmBlkPtr|
|00000600| 3b 20 64 43 74 6c 3a 20 | 44 43 74 6c 50 74 72 29 |; dCtl: |DCtlPtr)|
|00000610| 3a 20 4f 53 45 72 72 3b | 0d 42 45 47 49 4e 0d 09 |: OSErr;|.BEGIN..|
|00000620| 49 46 20 64 43 74 6c 5e | 2e 64 43 74 6c 77 69 6e |IF dCtl^|.dCtlwin|
|00000630| 64 6f 77 20 3c 3e 20 4e | 49 4c 20 54 48 45 4e 0d |dow <> N|IL THEN.|
|00000640| 09 42 45 47 49 4e 0d 09 | 09 44 69 73 70 6f 73 65 |.BEGIN..|.Dispose|
|00000650| 57 69 6e 64 6f 77 20 28 | 57 69 6e 64 6f 77 50 74 |Window (|WindowPt|
|00000660| 72 28 64 43 74 6c 5e 2e | 64 43 74 6c 57 69 6e 64 |r(dCtl^.|dCtlWind|
|00000670| 6f 77 29 29 3b 0d 09 09 | 64 43 74 6c 5e 2e 64 43 |ow));...|dCtl^.dC|
|00000680| 74 6c 57 69 6e 64 6f 77 | 20 3a 3d 20 4e 49 4c 3b |tlWindow| := NIL;|
|00000690| 0d 09 45 4e 44 3b 0d 09 | 44 52 56 52 43 6c 6f 73 |..END;..|DRVRClos|
|000006a0| 65 20 3a 3d 20 4e 4f 45 | 72 72 3b 0d 45 4e 44 3b |e := NOE|rr;.END;|
|000006b0| 0d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 44 52 56 52 |...FUNCT|ION DRVR|
|000006c0| 43 6f 6e 74 72 6f 6c 28 | 63 74 6c 50 42 3a 20 50 |Control(|ctlPB: P|
|000006d0| 61 72 6d 42 6c 6b 50 74 | 72 3b 20 64 43 74 6c 3a |armBlkPt|r; dCtl:|
|000006e0| 20 44 43 74 6c 50 74 72 | 29 3a 20 4f 53 45 72 72 | DCtlPtr|): OSErr|
|000006f0| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 44 72 |;...PROC|EDURE Dr|
|00000700| 61 77 57 69 6e 64 6f 77 | 3b 0d 09 56 41 52 20 0d |awWindow|;..VAR .|
|00000710| 09 09 73 61 76 65 5a 6f | 6e 65 3a 09 09 09 54 48 |..saveZo|ne:...TH|
|00000720| 7a 3b 0d 09 09 74 65 6d | 70 53 74 72 2c 56 6f 6c |z;...tem|pStr,Vol|
|00000730| 4e 61 6d 65 3a 09 53 74 | 72 32 35 35 3b 0d 09 09 |Name:.St|r255;...|
|00000740| 66 72 65 65 42 79 74 65 | 73 3a 09 09 09 4c 6f 6e |freeByte|s:...Lon|
|00000750| 67 49 6e 74 3b 0d 09 09 | 6f 75 72 49 44 3a 09 09 |gInt;...|ourID:..|
|00000760| 09 09 49 6e 74 65 67 65 | 72 3b 0d 0d 09 09 50 52 |..Intege|r;....PR|
|00000770| 4f 43 45 44 55 52 45 20 | 50 72 69 6e 74 4e 75 6d |OCEDURE |PrintNum|
|00000780| 20 28 6e 75 6d 3a 4c 6f | 6e 67 49 6e 74 29 3b 09 | (num:Lo|ngInt);.|
|00000790| 7b 6f 75 74 70 75 74 73 | 20 74 68 65 20 6e 75 6d |{outputs| the num|
|000007a0| 62 65 72 20 69 6e 20 70 | 6c 61 69 6e 20 74 65 78 |ber in p|lain tex|
|000007b0| 74 7d 0d 09 09 56 41 52 | 20 0d 09 09 09 6f 75 74 |t}...VAR| ....out|
|000007c0| 53 74 72 3a 20 53 74 72 | 32 35 35 3b 0d 09 09 42 |Str: Str|255;...B|
|000007d0| 45 47 49 4e 0d 09 09 09 | 4e 75 6d 54 6f 53 74 72 |EGIN....|NumToStr|
|000007e0| 69 6e 67 20 28 6e 75 6d | 2c 6f 75 74 53 74 72 29 |ing (num|,outStr)|
|000007f0| 3b 0d 09 09 09 54 65 78 | 74 46 61 63 65 20 28 5b |;....Tex|tFace ([|
|00000800| 5d 29 3b 09 09 09 09 09 | 7b 20 74 68 65 20 65 6d |]);.....|{ the em|
|00000810| 70 74 79 20 73 65 74 20 | 3d 20 50 6c 61 69 6e 20 |pty set |= Plain |
|00000820| 7d 0d 09 09 09 44 72 61 | 77 53 74 72 69 6e 67 20 |}....Dra|wString |
|00000830| 28 6f 75 74 53 74 72 29 | 3b 0d 09 09 09 54 65 78 |(outStr)|;....Tex|
|00000840| 74 46 61 63 65 20 28 5b | 42 6f 6c 64 5d 29 3b 0d |tFace ([|Bold]);.|
|00000850| 09 09 45 4e 44 3b 0d 09 | 0d 09 09 50 52 4f 43 45 |..END;..|...PROCE|
|00000860| 44 55 52 45 20 47 65 74 | 56 6f 6c 53 74 75 66 66 |DURE Get|VolStuff|
|00000870| 3b 09 0d 09 09 56 41 52 | 0d 09 09 09 65 72 72 6f |;....VAR|....erro|
|00000880| 72 3a 09 4f 73 45 72 72 | 3b 0d 09 09 09 6d 79 50 |r:.OsErr|;....myP|
|00000890| 61 72 61 6d 42 6c 6b 3a | 20 48 50 61 72 61 6d 42 |aramBlk:| HParamB|
|000008a0| 6c 6f 63 6b 52 65 63 3b | 0d 09 09 42 45 47 49 4e |lockRec;|...BEGIN|
|000008b0| 0d 09 09 09 57 49 54 48 | 20 6d 79 50 61 72 61 6d |....WITH| myParam|
|000008c0| 42 6c 6b 20 44 4f 09 09 | 09 0d 09 09 09 09 42 45 |Blk DO..|......BE|
|000008d0| 47 49 4e 0d 09 09 09 09 | 09 69 6f 4e 61 6d 65 50 |GIN.....|.ioNameP|
|000008e0| 74 72 20 3a 3d 20 40 56 | 6f 6c 4e 61 6d 65 3b 0d |tr := @V|olName;.|
|000008f0| 09 09 09 09 09 69 6f 56 | 52 65 66 4e 75 6d 20 3a |.....ioV|RefNum :|
|00000900| 3d 20 30 3b 20 09 09 7b | 20 69 66 20 69 6f 56 52 |= 0; ..{| if ioVR|
|00000910| 65 66 4e 75 6d 20 61 6e | 64 20 69 6f 56 6f 6c 49 |efNum an|d ioVolI|
|00000920| 6e 64 65 78 20 61 72 65 | 20 7a 65 72 6f 2c 20 7d |ndex are| zero, }|
|00000930| 0d 09 09 09 09 09 69 6f | 56 6f 6c 49 6e 64 65 78 |......io|VolIndex|
|00000940| 20 3a 3d 20 30 3b 09 09 | 7b 20 67 6f 20 66 6f 72 | := 0;..|{ go for|
|00000950| 20 74 68 65 20 64 65 66 | 61 75 6c 74 20 76 6f 6c | the def|ault vol|
|00000960| 75 6d 65 2e 20 7d 0d 09 | 09 09 09 45 4e 44 3b 0d |ume. }..|...END;.|
|00000970| 09 09 09 65 72 72 6f 72 | 20 3a 3d 20 50 42 48 47 |...error| := PBHG|
|00000980| 65 74 56 49 6e 66 6f 20 | 28 40 6d 79 50 61 72 61 |etVInfo |(@myPara|
|00000990| 6d 42 6c 6b 2c 20 46 41 | 4c 53 45 29 3b 0d 09 09 |mBlk, FA|LSE);...|
|000009a0| 09 0d 09 09 09 7b 20 69 | 6f 56 46 72 42 6c 6b 20 |.....{ i|oVFrBlk |
|000009b0| 69 73 20 61 6e 20 75 6e | 73 69 67 6e 65 64 20 69 |is an un|signed i|
|000009c0| 6e 74 65 67 65 72 2e 20 | 20 49 66 20 3e 20 33 32 |nteger. | If > 32|
|000009d0| 37 36 37 20 61 6e 64 20 | 61 73 73 69 67 6e 65 64 |767 and |assigned|
|000009e0| 0d 09 09 09 20 20 74 6f | 20 66 72 65 65 42 79 74 |....  to| freeByt|
|000009f0| 65 73 20 28 61 20 4c 6f | 6e 67 49 6e 74 29 2c 20 |es (a Lo|ngInt), |
|00000a00| 50 61 73 63 61 6c 20 77 | 69 6c 6c 20 74 68 69 6e |Pascal w|ill thin|
|00000a10| 6b 20 69 74 20 69 73 20 | 6e 65 67 61 74 69 76 65 |k it is |negative|
|00000a20| 0d 09 09 09 20 20 61 6e | 64 20 73 69 67 6e 20 65 |....  an|d sign e|
|00000a30| 78 74 65 6e 64 20 69 74 | 2e 20 20 54 68 65 20 65 |xtend it|.  The e|
|00000a40| 78 70 72 65 73 73 69 6f | 6e 20 62 65 6c 6f 77 20 |xpressio|n below |
|00000a50| 6d 61 73 6b 73 20 6f 66 | 66 20 74 68 69 73 0d 09 |masks of|f this..|
|00000a60| 09 09 20 20 68 69 67 68 | 20 77 6f 72 64 20 73 6f |..  high| word so|
|00000a70| 20 74 68 61 74 20 66 72 | 65 65 42 79 74 65 73 20 | that fr|eeBytes |
|00000a80| 69 73 20 63 6f 72 72 65 | 63 74 6c 79 20 73 69 67 |is corre|ctly sig|
|00000a90| 6e 65 64 2e 20 20 53 65 | 65 0d 09 09 09 20 20 74 |ned.  Se|e....  t|
|00000aa0| 65 63 68 20 6e 6f 74 65 | 20 23 31 35 37 20 6d 6f |ech note| #157 mo|
|00000ab0| 72 65 20 61 20 6d 6f 72 | 65 20 69 6e 2d 64 65 70 |re a mor|e in-dep|
|00000ac0| 74 68 20 65 78 70 6c 61 | 6e 61 74 69 6f 6e 2e 20 |th expla|nation. |
|00000ad0| 7d 0d 09 09 09 66 72 65 | 65 42 79 74 65 73 20 3a |}....fre|eBytes :|
|00000ae0| 3d 20 6d 79 50 61 72 61 | 6d 42 6c 6b 2e 69 6f 56 |= myPara|mBlk.ioV|
|00000af0| 46 72 42 6c 6b 3b 0d 09 | 09 09 66 72 65 65 42 79 |FrBlk;..|..freeBy|
|00000b00| 74 65 73 20 3a 3d 20 42 | 41 4e 44 28 66 72 65 65 |tes := B|AND(free|
|00000b10| 42 79 74 65 73 2c 20 24 | 30 30 30 30 66 66 66 66 |Bytes, $|0000ffff|
|00000b20| 29 20 2a 20 6d 79 50 61 | 72 61 6d 42 6c 6b 2e 69 |) * myPa|ramBlk.i|
|00000b30| 6f 56 41 6c 42 6c 6b 53 | 69 7a 3b 0d 09 09 45 4e |oVAlBlkS|iz;...EN|
|00000b40| 44 3b 0d 0d 09 09 50 52 | 4f 43 45 44 55 52 45 20 |D;....PR|OCEDURE |
|00000b50| 50 72 74 52 73 72 63 53 | 74 72 28 69 6e 64 65 78 |PrtRsrcS|tr(index|
|00000b60| 3a 20 69 6e 74 65 67 65 | 72 29 3b 0d 09 09 42 45 |: intege|r);...BE|
|00000b70| 47 49 4e 0d 09 09 09 47 | 65 74 49 6e 64 53 74 72 |GIN....G|etIndStr|
|00000b80| 69 6e 67 28 74 65 6d 70 | 53 74 72 2c 6f 75 72 49 |ing(temp|Str,ourI|
|00000b90| 44 2c 69 6e 64 65 78 29 | 3b 0d 09 09 09 44 72 61 |D,index)|;....Dra|
|00000ba0| 77 53 74 72 69 6e 67 28 | 74 65 6d 70 53 74 72 29 |wString(|tempStr)|
|00000bb0| 3b 0d 09 09 45 4e 44 3b | 0d 0d 09 42 45 47 49 4e |;...END;|...BEGIN|
|00000bc0| 09 7b 20 44 72 61 77 57 | 69 6e 64 6f 77 20 7d 0d |.{ DrawW|indow }.|
|00000bd0| 09 09 6f 75 72 49 44 20 | 3a 3d 20 52 73 72 63 49 |..ourID |:= RsrcI|
|00000be0| 44 28 64 43 74 6c 29 3b | 0d 09 09 0d 09 09 54 65 |D(dCtl);|......Te|
|00000bf0| 78 74 4d 6f 64 65 20 28 | 53 72 63 43 6f 70 79 29 |xtMode (|SrcCopy)|
|00000c00| 3b 20 54 65 78 74 46 6f | 6e 74 20 28 4d 6f 6e 61 |; TextFo|nt (Mona|
|00000c10| 63 6f 29 3b 20 54 65 78 | 74 53 69 7a 65 20 28 39 |co); Tex|tSize (9|
|00000c20| 29 3b 20 54 65 78 74 46 | 61 63 65 20 28 5b 42 6f |); TextF|ace ([Bo|
|00000c30| 6c 64 5d 29 3b 0d 0d 09 | 09 4d 6f 76 65 54 6f 20 |ld]);...|.MoveTo |
|00000c40| 28 36 2c 31 30 29 3b 20 | 50 72 74 52 73 72 63 53 |(6,10); |PrtRsrcS|
|00000c50| 74 72 28 31 29 3b 09 7b | 20 22 41 70 70 48 65 61 |tr(1);.{| "AppHea|
|00000c60| 70 3a 20 22 20 7d 0d 09 | 09 53 61 76 65 5a 6f 6e |p: " }..|.SaveZon|
|00000c70| 65 20 3a 3d 20 47 65 74 | 5a 6f 6e 65 3b 0d 09 09 |e := Get|Zone;...|
|00000c80| 53 65 74 5a 6f 6e 65 20 | 28 41 70 70 6c 69 63 5a |SetZone |(ApplicZ|
|00000c90| 6f 6e 65 29 3b 0d 09 09 | 50 72 69 6e 74 4e 75 6d |one);...|PrintNum|
|00000ca0| 20 28 46 72 65 65 4d 65 | 6d 29 3b 20 0d 09 09 0d | (FreeMe|m); ....|
|00000cb0| 09 09 50 72 74 52 73 72 | 63 53 74 72 28 32 29 3b |..PrtRsr|cStr(2);|
|00000cc0| 09 7b 20 22 20 53 79 73 | 48 65 61 70 3a 20 22 20 |.{ " Sys|Heap: " |
|00000cd0| 7d 0d 09 09 53 65 74 5a | 6f 6e 65 20 28 53 79 73 |}...SetZ|one (Sys|
|00000ce0| 74 65 6d 5a 6f 6e 65 29 | 3b 0d 09 09 50 72 69 6e |temZone)|;...Prin|
|00000cf0| 74 4e 75 6d 20 28 46 72 | 65 65 4d 65 6d 29 3b 0d |tNum (Fr|eeMem);.|
|00000d00| 09 09 53 65 74 5a 6f 6e | 65 20 28 53 61 76 65 5a |..SetZon|e (SaveZ|
|00000d10| 6f 6e 65 29 3b 20 09 09 | 7b 20 61 6c 77 61 79 73 |one); ..|{ always|
|00000d20| 20 70 75 74 20 74 68 69 | 6e 67 73 20 62 61 63 6b | put thi|ngs back|
|00000d30| 20 74 68 65 20 77 61 79 | 20 79 6f 75 20 66 6f 75 | the way| you fou|
|00000d40| 6e 64 20 74 68 65 6d 20 | 7d 0d 0d 09 09 50 72 74 |nd them |}....Prt|
|00000d50| 52 73 72 63 53 74 72 28 | 33 29 3b 09 09 7b 20 22 |RsrcStr(|3);..{ "|
|00000d60| 20 44 69 73 6b 3a 20 22 | 20 7d 0d 09 09 47 65 74 | Disk: "| }...Get|
|00000d70| 56 6f 6c 53 74 75 66 66 | 3b 0d 09 09 50 72 69 6e |VolStuff|;...Prin|
|00000d80| 74 4e 75 6d 20 28 46 72 | 65 65 42 79 74 65 73 29 |tNum (Fr|eeBytes)|
|00000d90| 3b 0d 0d 09 09 50 72 74 | 52 73 72 63 53 74 72 28 |;....Prt|RsrcStr(|
|00000da0| 34 29 3b 09 09 7b 20 22 | 20 66 72 65 65 20 6f 6e |4);..{ "| free on|
|00000db0| 20 22 20 7d 0d 09 09 54 | 65 78 74 46 61 63 65 20 | " }...T|extFace |
|00000dc0| 28 5b 55 6e 64 65 72 4c | 69 6e 65 5d 29 3b 0d 09 |([UnderL|ine]);..|
|00000dd0| 09 44 72 61 77 53 74 72 | 69 6e 67 20 28 56 6f 6c |.DrawStr|ing (Vol|
|00000de0| 4e 61 6d 65 29 3b 0d 09 | 45 4e 44 3b 09 7b 20 44 |Name);..|END;.{ D|
|00000df0| 72 61 77 57 69 6e 64 6f | 77 20 7d 0d 0d 56 41 52 |rawWindo|w }..VAR|
|00000e00| 0d 09 65 76 65 6e 74 41 | 74 3a 09 45 76 65 6e 74 |..eventA|t:.Event|
|00000e10| 50 74 72 3b 09 7b 20 50 | 6f 69 6e 74 65 72 20 74 |Ptr;.{ P|ointer t|
|00000e20| 6f 20 6f 75 72 20 65 76 | 65 6e 74 20 7d 0d 09 0d |o our ev|ent }...|
|00000e30| 42 45 47 49 4e 20 7b 20 | 6f 66 20 44 52 56 52 43 |BEGIN { |of DRVRC|
|00000e40| 6f 6e 74 72 6f 6c 20 7d | 0d 09 53 65 74 50 6f 72 |ontrol }|..SetPor|
|00000e50| 74 28 47 72 61 66 50 74 | 72 28 64 43 74 6c 5e 2e |t(GrafPt|r(dCtl^.|
|00000e60| 64 43 74 6c 57 69 6e 64 | 6f 77 29 29 3b 20 7b 20 |dCtlWind|ow)); { |
|00000e70| 74 68 65 20 64 65 73 6b | 20 6d 61 6e 61 67 65 72 |the desk| manager|
|00000e80| 20 72 65 73 74 6f 72 65 | 73 20 74 68 65 50 6f 72 | restore|s thePor|
|00000e90| 74 7d 0d 09 43 41 53 45 | 20 63 74 6c 50 42 5e 2e |t}..CASE| ctlPB^.|
|00000ea0| 63 73 43 6f 64 65 20 4f | 46 0d 09 09 61 63 63 45 |csCode O|F...accE|
|00000eb0| 76 65 6e 74 3a 09 0d 09 | 09 09 42 45 47 49 4e 0d |vent:...|..BEGIN.|
|00000ec0| 09 09 09 09 65 76 65 6e | 74 41 74 20 3a 3d 20 74 |....even|tAt := t|
|00000ed0| 72 69 78 28 63 74 6c 50 | 42 5e 2e 43 53 50 61 72 |rix(ctlP|B^.CSPar|
|00000ee0| 61 6d 29 2e 41 77 61 79 | 3b 09 7b 20 67 65 74 20 |am).Away|;.{ get |
|00000ef0| 74 68 65 20 65 76 65 6e | 74 20 70 6f 69 6e 74 65 |the even|t pointe|
|00000f00| 72 20 7d 0d 09 09 09 09 | 57 49 54 48 20 65 76 65 |r }.....|WITH eve|
|00000f10| 6e 74 41 74 5e 20 64 6f | 0d 09 09 09 09 42 45 47 |ntAt^ do|.....BEG|
|00000f20| 49 4e 0d 09 09 09 09 09 | 49 46 20 65 76 65 6e 74 |IN......|IF event|
|00000f30| 41 74 5e 2e 77 68 61 74 | 20 3d 20 55 70 44 61 74 |At^.what| = UpDat|
|00000f40| 65 45 76 74 20 54 48 45 | 4e 20 7b 20 77 65 20 6f |eEvt THE|N { we o|
|00000f50| 6e 6c 79 20 68 61 6e 64 | 6c 65 20 6f 6e 65 20 65 |nly hand|le one e|
|00000f60| 76 65 6e 74 20 7d 0d 09 | 09 09 09 09 09 42 45 47 |vent }..|.....BEG|
|00000f70| 49 4e 0d 09 09 09 09 09 | 09 09 42 65 67 69 6e 55 |IN......|..BeginU|
|00000f80| 70 64 61 74 65 20 28 57 | 69 6e 64 6f 77 50 74 72 |pdate (W|indowPtr|
|00000f90| 28 65 76 65 6e 74 41 74 | 5e 2e 6d 65 73 73 61 67 |(eventAt|^.messag|
|00000fa0| 65 29 29 3b 0d 09 09 09 | 09 09 09 09 09 44 72 61 |e));....|.....Dra|
|00000fb0| 77 57 69 6e 64 6f 77 3b | 0d 09 09 09 09 09 09 09 |wWindow;|........|
|00000fc0| 45 6e 64 55 70 64 61 74 | 65 20 28 57 69 6e 64 6f |EndUpdat|e (Windo|
|00000fd0| 77 50 74 72 28 65 76 65 | 6e 74 41 74 5e 2e 6d 65 |wPtr(eve|ntAt^.me|
|00000fe0| 73 73 61 67 65 29 29 3b | 0d 09 09 09 09 09 09 45 |ssage));|.......E|
|00000ff0| 4e 44 0d 09 09 09 09 45 | 4e 44 3b 20 7b 20 6f 66 |ND.....E|ND; { of|
|00001000| 20 61 63 63 45 76 65 6e | 74 20 43 61 73 65 20 7d | accEven|t Case }|
|00001010| 0d 09 09 09 45 4e 44 3b | 0d 0d 09 09 61 63 63 52 |....END;|....accR|
|00001020| 75 6e 3a 20 09 0d 09 09 | 09 42 45 47 49 4e 09 09 |un: ....|.BEGIN..|
|00001030| 09 7b 20 6f 75 72 20 70 | 65 72 69 6f 64 69 63 20 |.{ our p|eriodic |
|00001040| 63 61 6c 6c 20 7d 0d 09 | 09 09 09 44 72 61 77 57 |call }..|...DrawW|
|00001050| 69 6e 64 6f 77 3b 0d 09 | 09 09 45 4e 44 3b 0d 0d |indow;..|..END;..|
|00001060| 09 45 4e 44 3b 20 7b 20 | 6f 66 20 43 41 53 45 20 |.END; { |of CASE |
|00001070| 7d 0d 09 44 52 56 52 43 | 6f 6e 74 72 6f 6c 20 3a |}..DRVRC|ontrol :|
|00001080| 3d 20 4e 6f 45 72 72 3b | 0d 45 4e 44 3b 20 7b 20 |= NoErr;|.END; { |
|00001090| 6f 66 20 44 52 56 52 43 | 6f 6e 74 72 6f 6c 20 7d |of DRVRC|ontrol }|
|000010a0| 0d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 44 52 56 52 |...FUNCT|ION DRVR|
|000010b0| 50 72 69 6d 65 20 28 63 | 74 6c 50 42 3a 20 50 61 |Prime (c|tlPB: Pa|
|000010c0| 72 6d 42 6c 6b 50 74 72 | 3b 20 64 43 74 6c 3a 20 |rmBlkPtr|; dCtl: |
|000010d0| 44 43 74 6c 50 74 72 29 | 3a 20 4f 53 45 72 72 3b |DCtlPtr)|: OSErr;|
|000010e0| 0d 42 45 47 49 4e 0d 09 | 44 52 56 52 50 72 69 6d |.BEGIN..|DRVRPrim|
|000010f0| 65 20 3a 3d 20 4e 6f 45 | 72 72 3b 0d 45 4e 44 3b |e := NoE|rr;.END;|
|00001100| 0d 0d 46 55 4e 43 54 49 | 4f 4e 20 44 52 56 52 53 |..FUNCTI|ON DRVRS|
|00001110| 74 61 74 75 73 20 28 63 | 74 6c 50 42 3a 20 50 61 |tatus (c|tlPB: Pa|
|00001120| 72 6d 42 6c 6b 50 74 72 | 3b 20 64 43 74 6c 3a 20 |rmBlkPtr|; dCtl: |
|00001130| 44 43 74 6c 50 74 72 29 | 3a 20 4f 53 45 72 72 3b |DCtlPtr)|: OSErr;|
|00001140| 0d 42 45 47 49 4e 0d 09 | 44 52 56 52 53 74 61 74 |.BEGIN..|DRVRStat|
|00001150| 75 73 20 3a 3d 20 4e 6f | 45 72 72 3b 0d 45 4e 44 |us := No|Err;.END|
|00001160| 3b 0d 0d 0d 45 4e 44 2e | 20 7b 6f 66 20 6d 65 6d |;...END.| {of mem|
|00001170| 6f 72 79 20 55 4e 49 54 | 7d 0d 0d 00 00 00 00 00 |ory UNIT|}.......|
|00001180| 00 00 01 00 00 00 08 ad | 00 00 07 ad 00 00 00 8a |........|........|
|00001190| 65 2e 4c 20 23 44 69 61 | 67 6e 6f 73 74 69 63 46 |e.L #Dia|gnosticF|
|000011a0| 44 2c 2d 28 53 50 29 0d | 09 4a 53 52 09 57 72 69 |D,-(SP).|.JSR.Wri|
|000011b0| 08 4d 65 6d 6f 72 79 2e | 70 6d 02 00 00 00 54 45 |.Memory.|pm....TE|
|000011c0| 58 54 4d 50 53 20 01 00 | 00 50 00 00 00 00 00 00 |XTMPS ..|.P......|
|000011d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 50 00 00 |..TEXTMP|S ...P..|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 9f b9 93 40 00 00 | 10 fb 00 00 09 37 6d 65 |.....@..|.....7me|
|00001200| 2c 2d 28 53 50 29 0d 09 | 50 45 41 09 23 27 23 20 |,-(SP)..|PEA.#'# |
|00001210| 55 73 61 67 65 20 2d 20 | 27 0d 09 50 45 41 09 44 |Usage - |'..PEA.D|
|00001220| 69 61 67 6e 6f 73 74 69 | 63 46 44 09 09 3b 20 6f |iagnosti|cFD..; o|
|00001230| 70 74 69 6d 69 7a 65 64 | 20 4d 6f 76 65 2e 4c 20 |ptimized| Move.L |
|00001240| 23 44 69 61 67 6e 6f 73 | 74 69 63 46 44 2c 2d 28 |#Diagnos|ticFD,-(|
|00001250| 53 50 29 0d 09 4a 53 52 | 09 57 72 69 74 65 53 74 |SP)..JSR|.WriteSt|
|00001260| 72 69 6e 67 73 0d 09 4d | 6f 76 65 2e 42 09 23 52 |rings..M|ove.B.#R|
|00001270| 43 5f 50 61 72 6d 45 72 | 72 73 2c 52 65 74 43 6f |C_ParmEr|rs,RetCo|
|00001280| 00 00 03 3e 00 00 60 30 | 65 e7 ff ff ae 5e 60 10 |...>..`0|e....^`.|
|00001290| ff ff ff ff 01 00 00 32 | 00 00 00 00 00 00 00 00 |.......2|........|
|000012a0| 01 00 06 5c 00 00 00 00 | 01 00 03 3e 00 00 00 00 |...\....|...>....|
|000012b0| 9e 89 5b 3a 00 a7 00 a7 | 59 74 47 20 bf ff 66 08 |..[:....|YtG ..f.|
|000012c0| 1b 7c 01 00 00 ce ff ff | ff ff ff ff ff ff 00 00 |.|......|........|
|000012d0| 00 10 01 00 05 01 00 01 | 01 00 00 66 02 28 00 10 |........|...f.(..|
|000012e0| ff ff 00 00 00 00 00 00 | 00 00 00 08 50 c4 f1 ff |........|....P...|
|000012f0| ff ff 09 82 0c 47 01 00 | 00 9a ff ff ff ff 01 00 |.....G..|........|
|00001300| 00 9a 04 00 28 3c 01 00 | 02 00 00 10 ff ff 00 00 |....(<..|........|
|00001310| 00 00 00 0c 2f 28 00 08 | 4e ad 09 5a 1b 7c 00 09 |..../(..|N..Z.|..|
|00001320| 5d 0c 7f ff ff ff 42 67 | 20 6e ff ff ff ff ff ff |].....Bg| n......|
|00001330| ff ff ff ff ff ff 04 00 | 9e 34 01 00 02 00 00 08 |........|.4......|
|00001340| ff ff 00 00 00 00 00 08 | ff ff 20 6e 00 08 2f 28 |........|.. n../(|
|00001350| 00 08 00 ba 59 74 54 6a | 24 71 ae 58 20 6e 01 00 |....YtTj|$q.X n..|
|00001360| 02 a2 01 00 01 6a ff ff | ff ff 00 00 00 10 01 00 |.....j..|........|
|00001370| 05 01 00 01 01 00 01 02 | 02 ba 00 10 ff ff 00 00 |........|........|
|00001380| 00 00 00 00 00 00 00 08 | 50 c4 f1 ff ff ff 48 6d |........|P.....Hm|
|00001390| ae 58 01 00 01 36 ff ff | ff ff 01 00 01 36 04 00 |.X...6..|.....6..|
|000013a0| 28 3c 01 00 02 00 13 40 | ff ff 00 00 00 00 00 0c |(<.....@|........|
|000013b0| 00 08 2f 28 00 08 4e ad | 09 62 00 5f 5d 0c 7f ff |../(..N.|.b._]...|
|000013c0| ff ff 20 6e 00 08 ff ff | ff ff ff ff ff ff ff ff |.. n....|........|
|000013d0| ff ff 04 00 9e 34 01 00 | 02 00 0e ad ff ff 00 00 |.....4..|........|
|000013e0| 00 00 00 08 0c 47 00 99 | 57 c1 80 01 67 12 00 6e |.....G..|W...g..n|
|000013f0| 59 74 4c 2e 3b 6f ff dc | ff db 01 00 02 06 ff ff |YtL.;o..|........|
|00001400| ff ff ff ff ff ff 00 00 | 00 10 01 00 05 01 00 01 |........|........|
|00001410| 01 00 01 9e 02 6e 00 10 | ff ff 00 00 00 00 00 00 |.....n..|........|
|00001420| 00 00 00 c8 50 c4 f1 ff | ff ff 3f 00 20 6e 01 00 |....P...|..?. n..|
|00001430| 01 d2 ff ff ff ff 01 00 | 01 d2 04 00 28 3c 01 00 |........|....(<..|
|00001440| 02 00 00 08 ff ff 00 00 | 00 00 00 0c 20 6e 00 08 |........|.... n..|
|00001450| 2f 28 00 08 4e ad 00 b2 | 5d 0c 7f ff ff ff 00 08 |/(..N...|].......|
|00001460| 2f 28 ff ff ff ff ff ff | ff ff ff ff ff ff 04 00 |/(......|........|
|00001470| 9e 34 01 00 02 00 05 b2 | ff ff 00 00 00 00 00 08 |.4......|........|
|00001480| 04 40 00 96 6b 3a 0c 40 | 00 05 00 34 59 74 52 49 |.@..k:.@|...4YtRI|
|00001490| 80 ff 4e fb 00 00 ff ff | ff ff ff ff ff ff ff ff |..N.....|........|
|000014a0| ff ff 00 00 00 10 01 00 | 05 01 00 01 01 00 02 3a |........|.......:|
|000014b0| 02 0e 00 10 ff ff 00 00 | 00 00 00 00 00 00 00 59 |........|.......Y|
|000014c0| 50 c4 f1 ff ff ff 20 6e | 00 08 01 00 02 6e ff ff |P..... n|.....n..|
|000014d0| ff ff 01 00 02 6e 04 00 | 28 3c 01 00 02 00 0e ad |.....n..|(<......|
|000014e0| ff ff 00 00 00 00 00 0c | 20 6e 00 08 2f 28 00 08 |........| n../(..|
|000014f0| 4e ba 00 38 5d 0c 7f ff | ff ff 3f 3c 00 02 ff ff |N..8]...|..?<....|
|00001500| ff ff ff ff ff ff ff ff | ff ff 04 00 9e 34 01 00 |........|.....4..|
|00001510| 02 00 02 67 ff ff 00 00 | 00 00 00 08 4e ad 06 12 |...g....|....N...|
|00001520| 3d 5f ff ee 42 67 00 6e | 59 74 55 06 c1 ff 4e ad |=_..Bg.n|YtU...N.|
|00001530| 06 12 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|00001540| 00 10 01 00 05 01 00 01 | 01 00 02 d6 02 6e 00 10 |........|.....n..|
|00001550| ff ff 00 00 00 00 00 00 | 00 00 00 e2 50 c4 f1 ff |........|....P...|
|00001560| ff ff 00 08 4e ad 01 00 | 03 0a ff ff ff ff 01 00 |....N...|........|
|00001570| 03 0a 04 00 28 3c 01 00 | 02 00 0f 28 ff ff 00 00 |....(<..|...(....|
|00001580| 00 00 00 0c ff e6 1f 2e | ff e6 20 6e 00 08 00 28 |........|.. n...(|
|00001590| 5d 0c 7f ff ff ff 3f 3c | 30 17 ff ff ff ff ff ff |].....?<|0.......|
|000015a0| ff ff ff ff ff ff 04 00 | 9e 34 01 00 02 00 08 fa |........|.4......|
|000015b0| ff ff 00 00 00 00 00 08 | 48 80 3f 00 20 6e 00 08 |........|H.?. n..|
|000015c0| 2f 28 00 00 00 7a 00 02 | 00 01 00 00 00 00 00 00 |/(...z..|........|
|000015d0| 00 02 08 00 00 0f 00 01 | 00 01 00 00 00 00 08 00 |........|........|
|000015e0| 00 72 00 02 63 6b 69 64 | 00 00 00 1a 75 6e 69 74 |.r..ckid|....unit|
|000015f0| 00 02 00 26 4d 50 53 52 | 00 00 00 4a 00 80 00 00 |...&MPSR|...J....|
|00001600| 00 00 00 00 00 00 00 00 | 00 04 ff ff 00 00 03 98 |........|........|
|00001610| 00 00 00 00 00 05 ff ff | 00 00 04 16 00 00 00 00 |........|........|
|00001620| 00 06 ff ff 00 00 04 58 | 00 00 00 00 03 ed ff ff |.......X|........|
|00001630| 00 00 07 9a 00 00 00 00 | 09 50 72 6f 6a 65 63 74 |........|.Project|
|00001640| 00 00 00 3e 00 1b 0d 55 | 53 49 4e 47 49 4e 43 4c |...>...U|SINGINCL|
|00001650| 55 44 45 53 0a 55 53 45 | 44 45 56 45 4e 54 53 3a |UDES.USE|DEVENTS:|
|00001660| 3d 20 4e 4f 45 72 72 3b | 0d 45 4e 44 3b 0d 0d 0d |= NOErr;|.END;...|
|00001670| 46 55 4e 43 54 49 4f 4e | 20 44 52 56 52 43 6c 6f |FUNCTION| DRVRClo|
|00001680| 73 65 00 00 01 00 00 00 | 10 07 2f 00 2f 0b 4e ba |se......|.././.N.|
|00001690| fd e0 53 ad fe 22 4a ad | fe 22 4f ef 00 18 6d 12 |..S.."J.|."O...m.|
|000016a0| 20 6d fe 26 52 ad fe 26 | 10 bc 00 0d 70 00 70 0d | m.&R..&|....p.p.|
|000016b0| 60 0e 48 6d fe 22 70 0d | 2f 00 4e ad 06 3a 50 8f |`.Hm."p.|/.N..:P.|
|000016c0| 26 6b 00 08 20 0b 66 ac | 60 72 4a ab 00 08 67 24 |&k.. .f.|`rJ...g$|
|000016d0| 2d 6b 00 08 ff fc 20 6e | ff fc 30 10 48 c0 2f 00 |-k.... n|..0.H./.|
|000016e0| 2f 0c 48 6d db ec 48 6d | fe 22 4e ad 06 7a 4f ef |/.Hm..Hm|."N..zO.|
|000016f0| 00 10 60 48 2f 0c 48 6d | dc 10 48 6d fe 22 4e ad |..`H/.Hm|..Hm."N.|
|00001700| 06 7a 70 00 10 07 2f 00 | 2f 0b 4e ba fd 64 53 ad |.zp.../.|/.N..dS.|
|00001710| fe 22 4a ad fe 22 4f ef | 00 14 6d 12 20 6d fe 26 |."J.."O.|..m. m.&|
|00001720| 52 ad fe 26 10 bc 00 0d | 70 00 70 0d 60 0e 48 6d |R..&....|p.p.`.Hm|
|00001730| fe 22 70 0d 2f 00 4e ad | 06 3a 50 8f 4c df 18 80 |."p./.N.|.:P.L...|
|00001740| 4e 5e 4e 75 8b 64 75 6d | 70 53 79 6d 62 6f 6c 73 |N^Nu.dum|pSymbols|
|00001750| 00 00 4e 56 00 00 48 e7 | 01 10 3e 2e 00 0a 47 ed |..NV..H.|..>...G.|
|00001760| dc 5c 42 13 08 07 00 00 | 67 0c 48 6d dc 26 2f 0b |.\B.....|g.Hm.&/.|
|00001770| 4e ad 01 e2 53 47 70 0e | c0 47 67 12 55 40 67 1a |N...SGp.|.Gg.U@g.|
|00001780| 55 40 67 22 55 40 00 00 | 02 3a 9e 86 99 2f 9e 89 |U@g"U@..|.:.../..|
|00001790| 5b 3d 0b 19 4a 05 04 01 | 00 00 00 00 00 01 01 01 |[=..J...|........|
|000017a0| 00 06 00 2a 8e f6 00 2a | a6 52 00 06 00 00 00 00 |...*...*|.R......|
|000017b0| 17 53 74 61 6e 64 61 72 | 64 20 50 61 73 63 61 6c |.Standar|d Pascal|
|000017c0| 20 53 79 6d 62 6f 6c 73 | 73 63 61 6c 20 53 79 6d | Symbols|scal Sym|
|000017d0| 62 6f 6c 73 00 00 09 00 | 00 00 00 00 00 01 a3 7e |bols....|.......~|
|000017e0| 00 2b 01 d0 00 2d 07 22 | 00 29 40 76 00 3e 73 e2 |.+...-."|.)@v.>s.|
|000017f0| 00 2a d9 8c 00 2a dc ca | 00 16 9e 89 5b 3a 06 4d |.*...*..|....[:.M|
|00001800| 45 4d 4f 52 59 28 00 01 | 00 00 03 3e 00 00 00 00 |EMORY(..|...>....|
|00001810| 00 00 05 26 00 00 00 01 | 00 01 e6 1a 00 28 cf 8a |...&....|.....(..|
|00001820| 00 2a d9 5a 00 28 d2 a4 | 00 3e 64 62 00 27 df 20 |.*.Z.(..|.>db.'. |
|00001830| 40 80 65 5c 00 38 76 56 | 00 00 00 07 00 00 00 00 |@.e\.8vV|........|
|00001840| 00 00 00 00 00 00 00 00 | 9e 89 3a 10 08 50 41 43 |........|..:..PAC|
|00001850| 4b 49 4e 54 46 01 00 00 | 03 3e 00 00 00 00 00 00 |KINTF...|.>......|
|00001860| 05 26 00 00 00 01 00 01 | e6 1a 00 28 cf 8a 00 2a |.&......|...(...*|
|00001870| d9 5a 00 28 d2 a4 00 3e | 64 62 00 27 df 20 40 80 |.Z.(...>|db.'. @.|
|00001880| 65 5c 00 38 76 56 00 00 | 00 07 00 00 00 00 00 00 |e\.8vV..|........|
|00001890| 00 00 00 00 00 00 9e 89 | 3a 05 08 54 4f 4f 4c 49 |........|:..TOOLI|
|000018a0| 4e 54 46 01 00 00 03 3e | 00 00 00 00 00 00 05 26 |NTF....>|.......&|
|000018b0| 00 00 00 01 00 01 e6 1a | 00 28 cf 8a 00 2a d9 5a |........|.(...*.Z|
|000018c0| 00 28 d2 a4 00 3e 64 62 | 00 27 df 20 40 80 65 5c |.(...>db|.'. @.e\|
|000018d0| 00 38 76 56 00 00 00 07 | 00 00 00 00 00 00 00 00 |.8vV....|........|
|000018e0| 00 00 00 0a 9e 89 39 f7 | 06 4f 53 49 4e 54 46 54 |......9.|.OSINTFT|
|000018f0| 46 01 00 00 03 3e 00 00 | 00 00 00 00 05 26 00 00 |F....>..|.....&..|
|00001900| 00 01 00 01 e6 1a 00 28 | cf 8a 00 2a d9 5a 00 28 |.......(|...*.Z.(|
|00001910| d2 a4 00 3e 64 62 00 27 | df 20 40 80 65 5c 00 38 |...>db.'|. @.e\.8|
|00001920| 76 56 00 00 00 07 00 00 | 00 00 00 00 00 00 00 00 |vV......|........|
|00001930| 00 00 9e 89 39 f1 09 51 | 55 49 43 4b 44 52 41 57 |....9..Q|UICKDRAW|
|00001940| 00 00 03 3e 00 00 00 00 | 00 00 05 26 00 00 00 01 |...>....|...&....|
|00001950| 00 01 e6 1a 00 28 cf 8a | 00 2a d9 5a 00 28 d2 a4 |.....(..|.*.Z.(..|
|00001960| 00 3e 64 62 00 27 df 20 | 40 80 65 5c 00 38 76 56 |.>db.'. |@.e\.8vV|
|00001970| 00 00 00 07 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 9e 89 39 ef 08 4d 45 4d | 54 59 50 45 53 57 00 00 |..9..MEM|TYPESW..|
|00001990| 03 3e 00 00 00 00 00 00 | 05 26 00 00 00 01 00 01 |.>......|.&......|
|000019a0| e6 1a 00 28 cf 8a 00 2a | d9 5a 00 28 d2 a4 00 3e |...(...*|.Z.(...>|
|000019b0| 64 62 00 27 df 20 40 80 | 65 5c 00 38 76 56 00 00 |db.'. @.|e\.8vV..|
|000019c0| 00 07 00 00 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |.......H|..Monaco|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 06 00 04 00 31 |........|.......1|
|000019f0| 00 0a 01 49 01 ea 00 31 | 00 0a 01 49 01 ea 9f 8a |...I...1|...I....|
|00001a00| a5 d4 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001a10| 00 00 00 19 03 00 80 00 | 00 00 03 33 2e 30 0e 4d |........|...3.0.M|
|00001a20| 50 57 20 50 61 73 63 61 | 6c 20 33 2e 30 00 00 01 |PW Pasca|l 3.0...|
|00001a30| 00 00 00 08 ad 00 00 07 | ad 00 00 00 8a 00 21 64 |........|......!d|
|00001a40| f4 06 9e 00 00 00 1c 00 | 8a 00 02 75 6e 69 74 00 |........|...unit.|
|00001a50| 04 00 1a 4d 50 53 52 00 | 00 00 56 76 65 72 73 00 |...MPSR.|..Vvers.|
|00001a60| 00 00 62 00 03 ff ff 00 | 00 00 00 00 00 00 00 00 |..b.....|........|
|00001a70| 04 ff ff 00 00 03 42 00 | 00 00 00 00 05 ff ff 00 |......B.|........|
|00001a80| 00 03 c0 00 00 00 00 00 | 06 ff ff 00 00 04 02 00 |........|........|
|00001a90| 00 00 00 00 00 ff ff 00 | 00 05 06 00 00 00 00 03 |........|........|
|00001aa0| ed ff ff 00 00 07 44 00 | 00 00 00 00 02 ff ff 20 |......D.|....... |
|00001ab0| 00 07 90 00 21 64 04 00 | 00 00 00 00 00 00 00 00 |....!d..|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+